1 ; 
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r ioo 

/ struct S { 

S() tkrow();- 
~S()'throw(); 

}; 

r 

struct T { 
T();^-104 

~ T 0;^io5 

}; 



.103 



FIG. 1 



101 
102 



void woof(); 

^106 

LI: { 

T ant; ^-107 

10S ^V { r 109 

if( x>0 ) { 
S boa; 
m ^~} else { 

Scat;^H2 
Tdog 



110 



113 



woof();^-ii4 



120 



115-^ 

at 
S 

woof();^H9 



A catch(inty ) {^/-ln 
H6 J Selk;^H8 



V 



~4 

}^/M21 

L2:; 
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f #include <setjmp.h> 



V 



^200 

struct EHJtem { f~ 201 
struct EH_item * next; 
enum {DESTROY,TRY} tag; ^202 
union { 

struct { 2Q3 
void * object;-^" 
void (*dtor)();^ 2Q4 
} destructor; 
struct { 2Q5 
j mp_buf buffer;-^ 
struct handler_spec* handlers^ 
} try_block; 

}; 

}; 

struct EH_item * EH_stack_ptrK~~ 207 



FIG. 2 



/ 

/ 



r. 



3i€L 

31,- 



FIG.3 

PRIOR ART 



< 
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stnact EH_item ra, rb, rc, rd, re, rt; 
LI: 

303^-T(&ant); 
304^-ra.kind = DESTROY; 

ra. destructor. object = &ant; ra. destructor. dtor = &~T; 
3 06 ^-ra. next = EH_stack_ptr; EH_stack_ptr = &ra; 
307^rt.kind = TRY; 

rt.next = EH_stack_ptr; 
rt.try_block.handlers = . . . ; 
rt.next = EH_stack_ptr; EH_stackjptr = &rt; 
if( setjmp( rt.try_block.buffer)==0 ) { 

if(x>0){ 
313^S(&boa); 
314^-rb.kind = DESTROY; 

rb. destructor. object = &boa; rb. destructor. dtor = &~S; 
rb.next = EH_stack_ptr; EH_stack_ptr = &rb; 
3 1 -^EH_stack_j)tr = EH_stack_ptr->next; 
~S(& boa); 
} else { 
S(cat); 

rc.Und == DESTROY; 

rc. destructor. object = &cat; rc. destructor. dtor = &~S; 
rc.next = EH_stack_ptr; EH_stack_ptr = &rc; 
T(&dog); 

rd.kind « DESTROY; 

rd.destructor.object = &dog; rd. destructor. dtor = & ~T 
rd.next = EH_stack__ptr; EH_stack_ptr = &rd; 
woof(); 

EH_stack_ptr = EH_stack_ptr->next; 
~T(&dog); 

EH_stack _ptr = EH_stack_ptr->next; 
~S(&cat); 

} 

} else { 
S(&elk); 

re.kind = DESTROY; 

re.destructor.object = &elk; re. destructor. dtor = address of 
re. next = EH_stack_ptr; EH_stack_ptr = &re; 
~S(&elk); 

EH_stack_ptr = EH_stackj)tr->next; 



^^-EH_stack_ptr = EH_stack_ptr->next; 
EH_stack_ptr = EH_stack_ptr->next; 
~T(ant); 
L2: 



343 
34 
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^ start ^ 



400- 



402- 



403- 



404 « 



^ 

Determine state of target data structure at 
selected program points 



401^ 



Partition state of target data 
structure into components 



Determine operations to be inserted at each 
selected program point in order to set each 
component of the state at that program point. 



V 



Compute placement of setting operations 
that eliminates partial redundancies 



Place the setting operations in the program 
according to the computed placement. 



FIG. 4 



C; 
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501 t i 

502-! ^ (succeed) ^ T(&ant) ^ ^ ^ 



x>0? 

^jK,503 

(true)/\(false) 



\ (fail) 

\ 

\ 

N 

N 

N. 

S. 



504 



T" <*-^507 



match int? 



S(&boa) 



505 




^518 

(true)/ \ (false) 



520 



\(fail) 

^_~S_(&e_l_k) 



~S(&boa) 



524 



500^ 

■T(&ant) 



^2 ^ (succeed) 



522 



526 



/ 

(fail) 



-T(&ant) / 



FIG. 5 




r; 
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^ start ^ 



600. 



601 



w 

Does routine have 
cleanup instructions? 



yes 



no 



Build cleanup tree and 
cleanup states for routine. 



602 



Compute down-safety transfer function 
DOWNSAFE(e) for each edge. 



604 



Compute up-safety transfer 
function UPSAFE(e). 



Solve flow equations 
for UPSAFE*. 



~7 

605 



FIG. 6 



Solve flow-equations 
forDOWNSAFE*. 



Use DOWNSAFE* and UPSAFE* to 
place instructions that set components 
of the exception-handling stack. 



60t 



607-/1 



Remove exceptional edges 



608- 



Insert prologue 



»603 



( end ) 



o 
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701 t i 700 

jsucceed)^ T(&ant) 



x>0? 



(tmeyA (fal 



zzzzzzzza 



-S(&boa) 



(false) 






~S(&cat) 




try 




~T(&ant) 



FIG. 7 



-T(&dog) 



-S(&cat) 



try 



-T(&ant) 

gzzzzzzza 



S(&elk) 



~S(&cat) 



try 



-T(&ant) 
EZZZZZZZ 



~S(&cat) 



-S(&elk) 




~S(&elk) 
~T(&ant) 

gzzzzzzza 



gzzzzzzza 



726 



r; 
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( start CLEANUP_TREE(mT) 



900 
901 



Has STATEfw] been set yet? 




903 



Allocate a new cleanup node n 
Set PARENT[>] := nil 
ROOT:=h 
Set OPERATION^] := CONTINUE 
Set PTR_INDEX[«]:=NEW_INDEX() 



STATE[w]:=nil 
Set E to set of edges with u for a tail. 
Is E empty? 



904- 



7FT 



/yes 



yes 



no 



Is w the terminal or throw 
vertex of the routine? 



.902 



no 



Set e to any edge in E 
Is e an exceptional edge? 



no 



905 



^ Can edge e throw exception? 



yes 



v 



907 



Does e have form ' 'match 7?" for some 7? 



no 



909 



Recursively invoke 
CLEANUP_TREE(HEAD(e)) 



no 



yes 

\/_ 



r 



906 



Add TAIL(e) to set NEED 



yes 



-908 



Invoke CATCH_CHAIN(w) 



912- 



910 



Does edge e have form 
"~D(8cX) for some D and X? 



yes 



Set n:= ALLOCATE(STATE[HEAD(e?)]) 
Set OPERATION^] := ~D(X) 
Set STATE[w] := n. 
OB JECT_INDEX[w] :=NEW_INDEX(); 



no 



911 

JL 



Set STATE[«] :=STATE[HEAD(e)] 



no 



Remove e from £. 
Is £ the empty set? 



913 



FIG. 9 



r 
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( start CATCH_CHAIN(J)^) 



V 



Set list HANDLERS to empty. 
Set w.—u 



V 



1000 



1001 



1006 



Is there an edge e of the form "match 7 1 " 
for some Tand such that TAIL(e)=w? 



yes 



no 



^ Invoke CLEANUP_TREE(w) 



r 



1002 



Set edge g to edge with form "(true)" 
such that TAIL(g)=HEAD(e). 



V 



Set «.•= ALLOCATE (STATE[w]) 
STATE[u]:=« 
Set OPERATION[n]:=TRY 
Set CHAIN[«] :=H ANDLERS 
Set SETJMP_ INDEX[«]:=NEW_INDEX() 



3L 



Append CATCH(T,HEAD(g)) to list HANDLERS 



2k 



1007 



1003 



( end ) 



Set edge/to edge with form " (false)" 
such that TAIL(/)=HEAD(e). 



1004 



FIG. 10 



Set w:= HEAD(/) 



1005 



r. 



Q start ) 
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FIG. 11 



1100 



Set SAVER := nil 



1101 



^ Set ROOT := nil 



7K 



Is there a terminal vertex v ? 



v 



"7 

1104 



Invoke CLEANUP_TREE(v) 
STATE[v] := ROOT 



^1 105 



1102 

2. 



N INDEX- 0 



1103 
2_ 



For each vertex u that is 
the tail of a normal edge, 
invoke CLEANUP_TREE(«) 



Q start ALLOCATE(w) ~J 



V 



1300 



Allocate a new cleanup tree node 



v 



1301 
_2 



Set PARENT[«]:=m 
Set KIND_INDEX[«]:=NEW_INDEX() 



1302, 



V 



1303 



Is SAVER=nil? 



yes ^ 


Is m=ni\ r ? i 





no 



1305 



SAVER=« <• 




no 



( start NEW_INDEX() ) 



Set£:=N INDEX 



,1200 



1201 



SetN INDEX- N INDEX+1 



1202 ^ Return* ) 

FIG. 12 



1304 
_2_ 



Is OPERATION[w]=CONTINUE? 



Return « 



(3D 



no 



*M304 



FIG 13 



f : 



12/25 



1401 ,400 
f succeed) P T(&ant) 



x>0? 



(false) 



S(&boa) 




S(&cat) 

1408 

T(&dog) 

1409-\V 

(succeed) 

1410-vQ 
woof() 
1411-\V 

(succeed) 

141 V 

-T(&dog)^ 

1413-\^^ 

(succeed) 




^^(&c^ 



S(&elk) 

1420- 



-S(&boa) 




1421 



~T(&ant) 


1406 


(succeed) ^ 





1426 



FIG. 14 



( 



r 



^ start ^ 



13/25 



1500. 



± 

Set all elements of T(«) to IDENTITY. 



150 k 



FIG. 15 



Is u in set NEED? 



yes 



no 



1502. 



Set edge e to edge such that TAIL(e)=w ^ Set n :=STATE[HEAD(e)] 



1503 

S 



1505-/- 



T(«)[PTR_INDEX[«]]:=TOP 



CONTINUE 



V 

For each node /w in the cleanup tree, 
set T(w) [PTR_INDEX[/n]]:=BOTTOM 



1506 



T 

1504 



What is OPERATION^]? 



TRY 



V 



T(u) [SETJMP_INDEX[«]]:=TOP 

$ 

1508 



1509- 



~D(8cX) 



T(«)[OB JECT_INDEX[«]] :=TOP 



7 



1507 



T(w)[KIND_INDEX[«]]:=TOP 



yes 



Set «:=PARENT[«] 
Is «=nil? 



1510 



yes 

V 



no 



r. 



r, 



1600. 
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^ start ^ 

^ 

Set all elements of DOWNS AFE(e) to IDENTITY. 



160 k 



V 



Does edge e have form "(fail)"? 



1602- 



1603- 



yes 



4i 



Set DOWNSAFE := T(HEAD(e)) 



Invoke EFFECT(e,DOWNSAFE(e)) 



1604-/- Is e an exceptional edge? 



1605^- 



no 



yes 



3L 



Does there exist a normal edge f 
such that HEAD(e)= TAIL (/) 



1606^ 



no 



yes 



v 



Set all elements of 
DOWNSAf E(e) to BOTTOM. 



c 



end 



FIG. 16 
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( start ) 



170 1-^ 



^ 

Set UPSAFE(e) := T(TAIL(e)) 



1702- 



Does edge e have form "(fail)"' 



yes 



no 



1708 



Invoke EFFECT(e,UP S AFE(e)) 



1703-^ Set£:=0 



1704 



> Is yt<N_INDEX? 



1707-^ Set 



7\ 




false 



yes 



no 



z. 



end 



DOWNSAFE*(TAIL(<?))[£]? 



true 



v 



05 



Set UPSAFE(e)[yfc]:^TOP 



1706 



FIG. 17 



c 
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( start EFFECT( e> y) ) 



\ 


/ 


Set 7/ to set of nodes in cleanup tree 
that represent destructions of objects. 



1800 



1803 



Remove n from N 



7\ 



A 



1801 
A. 



^ Is set W empty? yes > ( ^~endP ) 



V 



no 



Set /z to any node in N. 



no 



1802 



Is address of object corresponding to node 
n modified by an instruction on edge e? 



-^1804 



yes 



Set/[OBJECT_INDEX[«]]:= BOTTOM; 



1805 



FIG. 18 



/ 



9* x 
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( start ^ 



Set-to set of edges in control-flow graph. 



FIG. 19 




true 



true 



4900 



3L 



Is set E empty? 



•1901 



no 



Set e to any element of E. 



1902 



Set&:=0 ^-1904 



^ Is &<N_INDEX ? 



1905 



no 



^1 



UPSAFE*(TAIL(e))(/c)? 



•1907 



false 



DOWNSAFE*(TAIL(e))(&)? 



•1908 



V 



false 



UPSAFE*(HEAD(e))(yt)? 



1909 



false 



1910 



false 



DOWNSAFE*(HEAD(e))(^)'i 



true 



true 



v 



Invoke BIT_DIFFERENCE (k) 



1911 
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( stent BITJDIEFEKEHCE(fe) ^ 



FIG. 20 



2000 

S 



To which partial map 
does k belong? 



OBJECT_INDEX[n] 



20( 



OPERATION^] is for some X 

Insert "&REC(n).destructor.object = &X" 



SETJMP_INDEX[«] 



2002 



\/ 



Insert " setjmp( &REC («).try_block.buffer)" 



PTR_INDEX[»j ^ Is OPERATION («)=CONTINUE ? 



2004 



yes 

3l 



Insert ' , EH_stack_ptr:=SAVER.next" 



^2003 



no 
V 



2005 



Insert "EH^stackjJtr -&REC («)" 



KIND_INDEX[«] 




2006 



OPERATION^] is TRY? 



yes 



Insert ' TTEM(n).tag := TRY' 



no 



2009 



Insert "ITEM(«).tag := DESTROY" 



-2007 



V 



2008 
4 



Insert "&REC (n).try_block.catch_info = CATCH(n)" 



2010 



OPERATION^] is ~D(8cX) for some X. 
Insert "&REC («).destructor.dtor =&-£>" 



2011 



Is PARENT[«] *nil ? 




no 



Is OPERATION[PARENT[«]]=CONTINUE ? 

"7 



2012 



2014y 



2013 



Insert 

,, REC(«).next = &REC(PARENT[/i])" 



yes yes 



Is «=SAVER ? 



TfsT 



no^ 



Insert "REC (n).next = REC(SAVER).next" 



-2015 



o 
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Q start ^ 



FIG. 21 



2100 



For each node n in cleanup tree such 
that OPERATION(n)^CONTINUE, 
add declaration for REC(«) to routine. 



2101^ 



Is SAVER=nil ? 



no 



yes 



2102^ insert "REC(SAVER).next=EH_stack_ptr" 



/ 

/ 
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S(&boa) 



x>0? 
(true) 



v T 1 Z 

^succeed) ^ T(&ant) 



ra.next =EH_stack_ptr; ~ 2250 




rc.destructor.object = 


&cat; 




rd.destructor.object = 
EH_stack_ptr = &rd; 


&dog; 


2260 

> 


^258 



EH_stack_ptr = &rc; 



~S(&boa) 



220/ 

S(&cat) 

2208-^X 

T(&dog) 

2209^Y 
(succeed) 

2210^Q 

woof() 

221 l^V 

(succeed) 

2212- xQ __ 

~T(&dog) EH_stack_ptr = ra.next; 

2213- aY 

(succeed) 

v 

~S(cat) (succeed) 
v ~S(&elk) 

2222 



2263 

2 



S(&elk) 



FIG. 22 



2253 

? 



ra.kind =DESTROY; 
ra.destructor.dtor = & ~T 
ra. destructor, object = &ant; 
rt.kind =TRY; 
rt.next=&ra; 
rt.handlers = CHAIN(u) 
rc.kind = DESTROY 
rc.next = rt.next; 
rc.destructor.dtor = & -S; 
rd.kind:=DESTROY; 
rd.next=&rc; 

rd.destructor.dtor = & ~T; 
EH_stack_ptr = &rc; 
setjmp(&rt.try_block.buffer ) 




L2 ^ (succeed) \^ 



-T(&ant 




re.kind = DEjSTROY 
re.next = &ra; 
re.destructor.dtor = & ~S; 
re.object = &elk; 
EH_stack_ptr = &re; 

— ? 

2269 



2271 

<; 



EH_stack_ptr = ra.next; 
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S struct EHJtem ra, rb, rc, rd, re, rt;-^ 2301 
/ LI: 

f ra.next = EH_stack_ptr;^ 2303 
T(&ant); 
if( x>0 ) { 
S(&boa); 
~S(&boa); 
} else { 

ra.kind = DESTROY; 

ra.destructor.dtor = &~T; 

ra. destructor, object = &ant; 

rt.kind = TRY; 

rt.next = &ra; 

rt.try_block.handlers = ...; 

rt.next = &ra; 

rc.kind = DESTROY; 

rc.destructor.dtor = &~S; 

rc.next = &rt; 

rd.kind = DESTROY; 

rd.destructor.dtor = &~T; 

rd.next = &rc; 

eh_stack_ptr = &rc; 

if( setjmp( &rt.try_block.buffer)==0 ) { 
S(&cat); 

redes true tor. object = &cat; 
T(&dog) 

rd.destructor. object = &dog; 
eh_stack__ptr = &rd; 
woof(); 

EH_stack_ptr = &rc; 
~T(&dog); 

EH_stack _ptr = ra.next; 
~S(&cat); 
} else { 

re.kind = DESTROY; 
re.next = &ra; 
re.destructor.dtor = &~S; 
eh_stack_ptr = &re; 
S(&elk); 

re.destructor.object = &elk; 
woof(); 

EH_stack_ptr = ra.next 
~S(&elk); 

} 

} 

V~T&ant) 
L2: 



FIG. 23 



o 
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f struct R { 

R(); ^.2402 

~R() throwO; 



FIG. 24 < 



}; 



^ } 



,2403 



i=0; 

do {^2408 

R fox;— 2409 

woof();^ 2410 

i=i+l; 
} while( i<100 )r^ 2412 



2551 




f 



o 
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FIG. 26 



true 



likely 



2700. 



( ^"start ^ 

J/ 

Set all elements of $DOWNSAFE(e) to IDENTITY. 



270 k 



Is edge e? rarely taken? 



yes 



no 



v 



2702^ 



Set SDOWNSAFE := to represent 
strict down-safety for e. 



2703- 



Is tail of e the tail of some 
other edge that is rarely taken? 



2704/- 



no 



yes 



Set P to function that maps x to false if 
jc=false, and "likely" otherwise. 



2705-y~ 



For each element / of SDOWNS AFE(e), 
set f=Vof. 



end 



false 



FIG. 27 



0 0 
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Q start 



c 



280 W 



\1/ 

Set SUPSAFE := to function of e 
that represents strict up-safety 



FIG. 28 



2802- 



2803- 



Is edge e rarely taken? j . 



no 



yes 



Set k~0 




2804 
A, 



Is£<N INDEX? 



2807-H Set & := £+1 



false 



no 



end 



yes 



$DOWNSAFE*(TAIL(e))[/fc]? 



true likely 

v y 



5. 



2805 



Set $UPSAFE(e)[Jfc]:=$UPSAFE(e)oTOP 



-2806 



0 
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FIG. 29 



1^ 



true 



v 

$UPSAFE*(TAIL(e))(£)? 



true 



^2900 



false 



likely 



v 



$DOWNSAFE*(TAIL(e))(£)? 



^2901 



false 



V 



$UPSAFE*(HEAD(e))(A)? 



false 



2903 



false 



$DOWNSAFE*(HEAD(e))(&)? 



2904 



likely 



V 



Insert guard 



c 



end 



> 



true 



^2902 



true 



Insert on edge e the operation corresponding to k 



2905 




